## Table 1
df_table <- nyc_squirrels_clean %>%
select(running, chasing,climbing, eating, foraging, kuks, quaas, moans, tail_flags, tail_twitches, indifferent, runs_from)
df_table_2 <- df_table %>%
pivot_longer(-running, names_to = "activity", values_to = "true_false")
chasing <- nyc_squirrels_clean %>%
group_by(chasing) %>%
summarize(count = n())
climbing <- nyc_squirrels_clean %>%
group_by(climbing) %>%
summarize(count = n())
eating <- nyc_squirrels_clean %>%
group_by(eating) %>%
summarize(count = n())
kuks <- nyc_squirrels_clean %>%
group_by(kuks) %>%
summarize(count = n())
quaas <- nyc_squirrels_clean %>%
group_by(quaas) %>%
summarize(count = n())
moans <- nyc_squirrels_clean %>%
group_by(moans) %>%
summarize(count = n())
tail_flags <- nyc_squirrels_clean %>%
group_by(tail_flags) %>%
summarize(count = n())
tail_twitches <- nyc_squirrels_clean %>%
group_by(tail_twitches) %>%
summarize(count = n())
indifferent <- nyc_squirrels_clean %>%
group_by(indifferent) %>%
summarize(count = n())
runs_from <- nyc_squirrels_clean %>%
group_by(runs_from) %>%
summarize(count = n())